SUBROUTINE OUTINF
C THIS IS A DUMMY IN 2-PART SCORE PROGRAM
	RETURN
	END

	SUBROUTINE RUNIT
	COMMON J,L /Q/ BNW(200),NWZ /INS/RINST(27),BG(60) /JPREC/JPREC
	1 /VV/LIMIT,V(1) /A/NP(27),XT(27),FRM(80),INVIS(27)
	COMMON /DUR/DUR(27) /NUMP/NUMP  /NDEV/NDEV
	1/E/IQ(27),KL,X,ZPAR,KA,LK,NNUM,JJ,JA,ISUB,NFLG
	COMMON/B/MOT,PR,T5,NINS,I,RA,KZY,NWX,INONLY,MX,Y,Z,FNAME,
	1 MZ,N,IDALL  /D/TF,AMPFAC,OP1,DURX,IXIN,FLNM
	DATA MDEV/1/
 
	WRITE(MDEV)FLNM,I,NWZ,NINS,IDALL,BY,JPREC,KZY,LIMIT,NUMP
	WRITE(MDEV)(RINST(K),K=1,NINS),(DUR(K),K=1,NINS),(NP(K),K=1,NINS)
	1,(BG(K),K=1,NINS),(BNW(K),K=1,NWZ),(V(K),K=1,I),
	1(INVIS(K),K=1,NINS)
	WRITE(NDEV,1)FLNM,I,NWZ,NINS
	WRITE(NDEV,2)(RINST(K),K=1,NINS)
	WRITE(NDEV,21)(NP(K),K=1,NINS)
	WRITE(NDEV,30)(BG(K),K=1,NINS)
	WRITE(NDEV,3)(DUR(K),K=1,NINS)
	WRITE(NDEV,4)(BNW(K),K=1,NWZ)
CC	TYPE 5
	N=1
	WRITE(NDEV,6)
	READ(NDEV,20)X
	IF(X.EQ.0)CALL EXIT
22	K=N+1
	IF(N.GE.I)CALL EXIT
	X=V(N)
	IF(X.EQ.-199.)GO TO 24
	IF(X.EQ.-99.)GO TO 24
	IF(X.GE.0)GO TO 23
	WRITE(NDEV,20)X
	N=N+1
	GO TO 22
24	J=N+1
	GO TO 25
C  FOR 'SECTIONS'
23	J=ABS(V(K))+K-1
25	WRITE(NDEV,20)(V(K),K=N,J)
	N=J+1
	GO TO 22
1	FORMAT(/' FILE NAME=',A4,'  I=',I4,'   NWZ=',I3,'   NINS=',I2/)
2	FORMAT(' INSTS=',27(A4,1X)/)
21	FORMAT(' NUM.PARAMS=',27I2/)
3	FORMAT(' DURS=',27F7.2/)
30	FORMAT(' BG TIMES=',27F7.2/)
4	FORMAT(' BNWS=',27F7.2/)
5	FORMAT(' V ARRAY='/)
6	FORMAT(' 1=SEE V ARRAY'/)
20    FORMAT(10F12.3)
	END